﻿Imports System.Globalization

<Plug(Target:=GetType(Global.Microsoft.VisualBasic.CompilerServices.Operators))>
Public Class OperatorsImpl
	'Shared Function CompareString(ByVal Left As String, ByVal Right As String, ByVal TextCompare As Boolean) As System.Int32
	'	Dim str1l As Integer = Left.Length
	'	Dim str2l As Integer = Right.Length
	'	Dim mínimo As Integer = System.Math.Min(str1l, str2l)
	'	Dim resultado As Integer

	'	'comparar

	'	resultado = 0

	'	For i As Integer = 0 To mínimo - 1
	'		Dim c1 As Char = Left(i)
	'		Dim c2 As Char = Right(i)

	'		If TextCompare Then
	'			c1 = Microsoft.VisualBasic.LCase(c1)
	'			c2 = Microsoft.VisualBasic.LCase(c2)
	'		End If

	'		If c1 <> c2 Then
	'			Return -1
	'		End If
	'	Next

	'	If resultado = 0 Then
	'		If str1l > str2l Then
	'			Return 1
	'		ElseIf str1l < str2l Then
	'			Return -1
	'		End If
	'	End If

	'	Return resultado
	'End Function
End Class
